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IDENTIFICATION: 

AUTHOR: 

ACCEPTED: 

PURPOSE: 

COMPUTER 
CONFIG UR ATION: 

SUBROUTINES 
REQUIR ED: 

STORAGE: 

TIMING: 

LOADING 

PROCEDURE: 

USE: 


METHOD: 


SEL PROGRAM LIBRARY 
PROGRAM DESCRIPTION 

_ Catalog No. 300018A 

81 OA EBCDIC to ASCII conversion routine 
W. A. Speer 
August 4, 1967 

To translate a buffer or data from EBCDIC to ASCII 

SEL 81 OA 


None 

124 locations 
8 

17 + 30 N cycles - approx, where N^number of words in 
buffer. 


The program which calls this subroutine and this subroutine 
must be loaded with the 81 OA Standard Paper Tape Load/ 
Dump (Catalog No. 300001B) 


Calling Sequence: 


CALL ET(£>A 

DAC BUF Address of buffer 

DATA N Word count 


The EBCDIC character to be translated must be in bits 0-7 
of the word. Bits 8-15 are ignored. The ASCII equivalent 
is returned in bits 8-15 and bits 0-7 are set to zero. 

If the most significant bit of the EBCDIC character is on (1) 
an indexed table look-up of alphabetic and numeric characters 
is performed using the 6 least significant bits of the charactei 

If the most significant bit of the EBCDIC character is off 
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(0) bits X2, X3, X5, X6, X7 are used to perform an indexed 
table look-up of special characters. Bit X4 is dropped and 
the character is compressed. 


o 


o 


o 


o 
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0001 

00000 

00000000 •« 




It 

0002 

00000 

00000000 * 




• 

0003 

00000 

00000000 * 




» 

0004 

00000 

00000000 » 

B10A EBCDIC 

TO ASCII 

CONVERSION ROUTINE CATALOG N0. 3000LSA 

• 

0005 

00000 

00000000 • 




• 

0006 

00000 

00000000 • 

PROGRAMMER 

W. A. 

SPEER 

• 

0007 

00000 

00000000 * 





0008 

00000 

00000000 * 

AUGUST 4, 

1967 


• 

0009 

00000 

00000000 • 




• 

0010 

00000 

00000000 * 

PURP0SE - 

TO TRANSLATE A BUFFER FROM EBCDIC T0 FULL ASCII. 

• 

0011 

00000 

00000000 • 

THE EBCDIC 

CHARACTER IS T0 BE IN BIT5 D-7. BITS 8-15 ARE 

• 

0012 

ooooo 

00000000 * 

IUNBRED UPON ENTRANCE TO THE SUBROUTINE. AN ASCII CHARACTER 


0013 

00000 

00000000 • 

IS RETURNED IN BITS 

8-15 AND BITS D-7 ARE SET T0 ZFR0. 

# 

0014 

ooooo 

00000000 • 




• 

0015 

ooooo 

00000000 * 

CALLING SEQUENCE 


• 

0016 

ooooo 

00000000 * 

CALL 

ET0A 


• 

0017 

ooooo 

00000000 • 

DAC 

BUF 

ADDRESS 0F FIRST WORD UBV BUf 

• 

0018 

ooooo 

00000000 • 

DATA 

N 

WBRD C0UNT 

# 

0019 

ooooo 

00000000 * 

' 



• 

0020 

DODOO 

00000000 »< 




Ift 

0021 

ooooo 

00000000 

REL 




0022 

ooooo 

50000000 

NAME ET0A 

» ETO A 



0022 

ooooo 

00000000 





0022 

ooooo 

01212017 





0022 

ooooo 

00220040 





0023 

ooooo 

00000000 ET0A »• 




0024 

00001 

01300000 

LAA* ET0A 


PICK UP ADDRFSS 0F BUF 


0025 

00002 

14100000 

IMS ET0A 


INCREMENT T0 WORD C0UNT 


0026 

00003 

03100043 

STA AODR 


ST0RE ADDRESS 0F- FIRST WD BFi BUF 


0027 

00004 

01300000 

LAA* ET0A 


PICK UP WORD COUNT 


0028 

00005 

14100000 

IMS ET0A 


INCREMENT F0R RETURN 


0029 

00006 

00000002 

NEG 


NE5ATE WORD C0UNT 


0030 

00007 

03100042 

STA WUCT 


STORE NEGATIVE WORD COUNT 


0031 

00010 

01300043 LOOP IAA» ADDR 


PICK UP DATA WORD 


0032 

00011 

02000000 

LB A *0 


CLEAR B ACCUMULATOR 


0033 

00012 

00000023 

SAN 


IS THE LEFTMOST BIT (AO) ON 


0034 

00013 

11100020 

BRU SPEC 


N0 - THEN THE WD IS A SPECIAL CHAR 


0035 

00014 

00000216 ALPH LSI 2 


YES - THEN ALPHABETIC 0R NUMERIC CHAR 


0036 

00015 

00000000 • 



THE LEFTMOST TWO BITS ARE DROPPED 
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0037 

00015 

00000000 

• 



0038 

00015 

00000000 

• • 



0039 

00015 

00000514 


FRL 

5 

0040 

00016 

02500064 


lba 

ALCH.l 

0041 

00017 

11100025 


BRU 

ARND 

0042 

00020 

00000216 

SPEC 

LSL 

2 

0043 

00021 

00000000 

» 



0044 

00021 

00000000 

• 



0045 

00U21 

00000214 


FRL 

2 

0046 

00022 

00000116 


LSL 

1 

004 7 

U0023 

00000214 


FRL 

2 

0048 

00024 

02500044 


lba 

SPCH#1 

0049 

00025 

00000023 

AKND 

SAN 


0050 

00026 

11100033 


BRU 

EVEN 

0051 

00027 

00000004 

ODD 

TBA 


0052 

00030 

02000377 


LBA 

s'000377 

0053 

00031 

00000027 


ABA 


0054 

00032 

00000000 

• 



0055 

00032 

00000000 

* 



0056 

00032 

11100035 


BRU 

setr 

0057 

00033 

00000004 

EVEN 

TBA 


0058 

00034 

00001015 


RSL 

8 

0059 

00U35 

00000000 

• 



0060 

00035 

00000000 

• 



0061 

00035 

03300043 

SETR 

ST A* 

AOOR 

0062 

00036 

14100043 


IHS 

ADDR 

0063 

00037 

14100042 


IMS 

WDCT 

0064 

0004Q 

11100010 


BRU 

LB0P 

0065 

00041 

11300000 


BRU* 

ET0A 

0066 

00042 

00000000 

WOCT 

*** 

»o 

0067 

00043 

00000000 

ADDR 

*•# 

• a 

0068 

00044 

00120000 

SPCH 

UATA 

•120000 

0069 

00045 

00000256 


DATA 

•000256 

U070 

00046 

00136250 


DATA 

•136250 

0071 

00047 

00125736 


DATA 

•125736 

0072 

00050 

00123000 


DATA 

*123000 

0073 

00051 

00120644 


DATA 

•120644 

0074 

00052 

00125251 


DATA 

*125251 

0075 

00053 

00135400 


DATA 

•135400 

0076 

00054 

00126657 


DATA 

•126657 


BECAUSE F0R ALL ALPH/MU# CHARS 
THEY ARE 0NES 

PUT THE NEXT 5 BITS IN B FRR INDEX 

PULL THE PR0PER ENTRY FRP*M ALPH/NUM TABLE 

60 T0 0DD/EVEN R0UT1NE 

THE LEFTMOST TW0 BITS ARE DR#PPED 

BECAUSE F0R ALL SPECIAL! CHARS 

THEY ARE 01 

PUT THF NEXT TW0 UNIQUE BITS IN B 

DR0P THE NEXT BIT AS IT WILL BE A1 

PUT THE NEXT TW0 UNIQUE BITS IN B 

PULL THE PR0PER ENTRY FR0M SPEC CHAR TABLE 

IS THE LAST BIT 0F THE DATA WORD 0N 

N0 - G0 T0 THE EVEN R0UTINE 

PUT THE TABLE ENTRY IN A ACCUH 

PICK UP MASK 

WIPE BUT L&F-THBST BITS LEAVING 
THE ASCII EQUIVALENT IN The 
RIGHTM0ST B BITS 0F THE ACCUH 
G0 TQ THE STORE RBUTlNE 
PUT THE TABLE ENTRY IN A ACCUH 
SHIFT BFF THE RIGHTH0ST B BITS 
LEAVING THE ASCII EQUIVALENT 
IN THE RIGHTM0ST 8 BITS 0F THE: ACCUH 
ST0RE ASCII EQUIVALENT IN 9UF 
INCREMENT T0 NEXT WORD IN BUF 
INCREMENT NEC WO CT - IS IT ZERB 
NB - GB BACK FOR ANBThER W0RD 
YES - FINISHED - RETURN 


40-00 Tfc) 240-0 
4A-4B TO Q-25o 
4C-4D Tk) 274-250 
4E-4F TU 253-336 
58-59 T0 246-0 
5A-5B T0 241-244 
5C-5D TB 252-251 
5F-5F T0 273-0 
68-69 TO 255-257 


0 


o 


o 


V 
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0077 

00055 

00000254 

DATA 

•000294 

0078 

00056 

00122400 

DATA 

•122400 

0079 

00057 

00137277 

DATA 

•137277 

0080 

00060 

00000000 

DATA 

•000000 

0081 

00061 

00135243 

DATA 

•135243 

0082 

00062 

00140247 

data 

•140247 

0083 

00063 

00136642 

DATA 

*136642 

0084 

00064 

00000301 

alch data 

*000301 

0085 

00065 

00141303 

DATA 

•141303 

0086 

00066 

00142305 

data 

•142305 

0087 

00067 

00143307 

DATA 

•1433D7 

0086 

00070 

00144311 

data 

*144311 

0089 

00071 

00000000 

DATA 

*000000 

0090 

00072 

OOOOOOOO 

DATA 

*000000 

0091 

00073 

00000000 

DATA 

*000000 

0092 

00074 

00000312 

DATA 

•000312 

0093 

00075 

00145714 

DATA 

•145714 

0094 

00076 

00146716 

data 

*146716 

0095 

00077 

00147720 

DATA 

•147720 

0096 

00100 

00150722 

DATA 

*150722 

0097 

00101 

OOOOOOOO 

DATA 

*000000 

0098 

00102 

OOOOOOOO 

data 

•000000 

0099 

00103 

OOOOOOOO 

DATA 

•000000 

0100 

00104 

OOOOOOOO 

DATA 

*000000 

0101 

00105 

00151724 

DATA 

*151724 

0102 

00106 

00152726 

DATA 

•152726 

0103 

00107 

00153730 

DATA 

• 153730 

0104 

00110 

00154732 

DATA 

*154732 

0105 

00111 

OOOOOOOO 

DATA 

*000000 

0106 

00112 

OOOOOOOO 

DATA 

•000000 

0107 

00113 

OOOOOOOO 

DATA 

•000000 

0108 

00114 

00130261 

DATA 

*130261 

0109 

00115 

00131263 

DATA 

*131263 

0110 

00116 

00132265 

DATA 

♦132265 

0111 

00117 

00133267 

DATA 

*133267 

0112 

00120 

00134271 

DATA 

*134271 

0113 

00121 

OOOOOOOO 

DATA 

*000000 

0114 

00122 

OOOOOOOO 

UAT A 

*000000 

0115 

00123 

OOOOOOOO 

DATA 

•000000 

0116 

00124 

70400000 

ENU 



o 
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6A-68 T0 0*294 
6C-6D Ti 249-0 
6E-6F T0 276-277 
76-79 T0 0-0 
7A-7B T0 272-24} 

7C-7D T0 300-247 
7E-7F T0 275-242 
C0-C1 T0 0-301 
C2-C3 TB 302-303 
C4-C5 T0 304-305 
C6-C7 T0 306-307 
CB-C9 T0 310-311 
CA-CB T0 D-D 
CC-CO T0 0-0 
CE-CF T0 0-0 
00-01 T0 0-312 
D2-03 TO 313-314 
D4-05 T0 315-316 
06-07 T0 317-320 
DB-D9 T0 321-322 
DA-OB T0 0-0 
OC-DD T0 0-0 
OE-OF T0 0-0 
E0-E1 T0 0-0 
E2-E3 T0 323-324 
E4-E5 T0 329-326 
E6-67 T0 327-330 
E8-E9 T0 331-332 
EA-EB T0 0-0 
EC-ED T0 0-0 
EE-EF T0 0-0 
FQ-F1 T0 260-261 
F2-F3 T id 262-263 
F4-F5 T0 264-265 
F6-F7 TB 266-267 
F6-F9 T0 270-271 
FA-FB T0 0-0 
FC-FD T0 0-0 
FE-FF TO 0-0 




